home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / !Interfaces / Universal Interfaces 2.0a1 / PInterfaces / ImageCompression.p < prev    next >
Encoding:
Text File  |  1994-07-17  |  32.8 KB  |  847 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        ImageCompression.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Universal Interfaces 2.0a1.  ETO #15, MPW prerelease.  Sunday, July 17, 1994. 
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT ImageCompression;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __IMAGECOMPRESSION__}
  27. {$SETC __IMAGECOMPRESSION__ := 1}
  28.  
  29. {$I+}
  30. {$SETC ImageCompressionIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {    ConditionalMacros.p                                            }
  38.  
  39. {$IFC UNDEFINED __QUICKDRAW__}
  40. {$I Quickdraw.p}
  41. {$ENDC}
  42. {    MixedMode.p                                                    }
  43. {    QuickdrawText.p                                                }
  44.  
  45. {$IFC UNDEFINED __QDOFFSCREEN__}
  46. {$I QDOffscreen.p}
  47. {$ENDC}
  48. {    Errors.p                                                    }
  49.  
  50. {$IFC UNDEFINED __COMPONENTS__}
  51. {$I Components.p}
  52. {$ENDC}
  53.  
  54. {$IFC UNDEFINED __WINDOWS__}
  55. {$I Windows.p}
  56. {$ENDC}
  57. {    Memory.p                                                    }
  58. {    Events.p                                                    }
  59. {        OSUtils.p                                                }
  60. {    Controls.p                                                    }
  61. {        Menus.p                                                    }
  62.  
  63. {$IFC UNDEFINED __STANDARDFILE__}
  64. {$I StandardFile.p}
  65. {$ENDC}
  66. {    Dialogs.p                                                    }
  67. {        TextEdit.p                                                }
  68. {    Files.p                                                        }
  69.  
  70. {$PUSH}
  71. {$ALIGN MAC68K}
  72. {$LibExport+}
  73.  
  74. TYPE
  75.     MatrixRecord = RECORD
  76.         matrix:                    ARRAY [0..2,0..2] OF Fixed;
  77.     END;
  78.     MatrixRecordPtr = ^MatrixRecord;
  79.  
  80.     FixedPoint = RECORD
  81.         x:                        Fixed;
  82.         y:                        Fixed;
  83.     END;
  84.     FixedRect = RECORD
  85.         left:                    Fixed;
  86.         top:                    Fixed;
  87.         right:                    Fixed;
  88.         bottom:                    Fixed;
  89.     END;
  90. { These are the bits that are set in the Component flags, and also in the codecInfo struct. }
  91.  
  92. CONST
  93.     codecInfoDoes1                = 0+(1 * (2**(0)));
  94.     codecInfoDoes2                = 0+(1 * (2**(1)));
  95.     codecInfoDoes4                = 0+(1 * (2**(2)));
  96.     codecInfoDoes8                = 0+(1 * (2**(3)));
  97.     codecInfoDoes16                = 0+(1 * (2**(4)));
  98.     codecInfoDoes32                = 0+(1 * (2**(5)));
  99.     codecInfoDoesDither            = 0+(1 * (2**(6)));
  100.     codecInfoDoesStretch        = 0+(1 * (2**(7)));
  101.     codecInfoDoesShrink            = 0+(1 * (2**(8)));
  102.     codecInfoDoesMask            = 0+(1 * (2**(9)));
  103.     codecInfoDoesTemporal        = 0+(1 * (2**(10)));
  104.     codecInfoDoesDouble            = 0+(1 * (2**(11)));
  105.     codecInfoDoesQuad            = 0+(1 * (2**(12)));
  106.     codecInfoDoesHalf            = 0+(1 * (2**(13)));
  107.     codecInfoDoesQuarter        = 0+(1 * (2**(14)));
  108.     codecInfoDoesRotate            = 0+(1 * (2**(15)));
  109.     codecInfoDoesHorizFlip        = 0+(1 * (2**(16)));
  110.     codecInfoDoesVertFlip        = 0+(1 * (2**(17)));
  111.     codecInfoDoesSkew            = 0+(1 * (2**(18)));
  112.     codecInfoDoesBlend            = 0+(1 * (2**(19)));
  113.     codecInfoDoesWarp            = 0+(1 * (2**(20)));
  114.     codecInfoDoesRecompress        = 0+(1 * (2**(21)));
  115.     codecInfoDoesSpool            = 0+(1 * (2**(22)));
  116.     codecInfoDoesRateConstrain    = 0+(1 * (2**(23)));
  117.  
  118.     codecInfoDepth1                = 0+(1 * (2**(0)));
  119.     codecInfoDepth2                = 0+(1 * (2**(1)));
  120.     codecInfoDepth4                = 0+(1 * (2**(2)));
  121.     codecInfoDepth8                = 0+(1 * (2**(3)));
  122.     codecInfoDepth16            = 0+(1 * (2**(4)));
  123.     codecInfoDepth32            = 0+(1 * (2**(5)));
  124.     codecInfoDepth24            = 0+(1 * (2**(6)));
  125.     codecInfoDepth33            = 0+(1 * (2**(7)));
  126.     codecInfoDepth34            = 0+(1 * (2**(8)));
  127.     codecInfoDepth36            = 0+(1 * (2**(9)));
  128.     codecInfoDepth40            = 0+(1 * (2**(10)));
  129.     codecInfoStoresClut            = 0+(1 * (2**(11)));
  130.     codecInfoDoesLossless        = 0+(1 * (2**(12)));
  131.     codecInfoSequenceSensitive    = 0+(1 * (2**(13)));
  132.  
  133.     codecFlagUseImageBuffer        = 0+(1 * (2**(0)));
  134.     codecFlagUseScreenBuffer    = 0+(1 * (2**(1)));
  135.     codecFlagUpdatePrevious        = 0+(1 * (2**(2)));
  136.     codecFlagNoScreenUpdate        = 0+(1 * (2**(3)));
  137.     codecFlagWasCompressed        = 0+(1 * (2**(4)));
  138.     codecFlagDontOffscreen        = 0+(1 * (2**(5)));
  139.     codecFlagUpdatePreviousComp    = 0+(1 * (2**(6)));
  140.     codecFlagForceKeyFrame        = 0+(1 * (2**(7)));
  141.     codecFlagOnlyScreenUpdate    = 0+(1 * (2**(8)));
  142.     codecFlagLiveGrab            = 0+(1 * (2**(9)));
  143.     codecFlagDontUseNewImageBuffer = 0+(1 * (2**(10)));
  144.     codecFlagInterlaceUpdate    = 0+(1 * (2**(11)));
  145.     codeFlagCatchUpDiff            = 0+(1 * (2**(12)));
  146.     codecFlagUsedNewImageBuffer    = 0+(1 * (2**(14)));
  147.     codecFlagUsedImageBuffer    = 0+(1 * (2**(15)));
  148.  
  149. { The minimum data size for spooling in or out data }
  150.     codecMinimumDataSize        = 32768;
  151.  
  152.     compressorComponentType        = 'imco';                        { the type for "Components" which compress images }
  153.     decompressorComponentType    = 'imdc';
  154.  
  155.     
  156. TYPE
  157. CompressorComponent = Component;
  158.  
  159.     DecompressorComponent = Component;
  160.  
  161.     CodecComponent = Component;
  162.  
  163.  
  164. CONST
  165.     anyCodec                    = 0;                            { take first working codec of given type }
  166.     bestSpeedCodec                = -1;                            { take fastest codec of given type }
  167.     bestFidelityCodec            = -2;                            { take codec which is most accurate }
  168.     bestCompressionCodec        = -3;                            { take codec of given type that is most accurate }
  169.  
  170.     
  171. TYPE
  172. CodecType = LONGINT;
  173.  
  174.     CodecFlags = INTEGER;
  175.  
  176.     CodecQ = LONGINT;
  177.  
  178.  
  179. CONST
  180.     codecLosslessQuality        = $400;
  181.     codecMaxQuality                = $3ff;
  182.     codecMinQuality                = $000;
  183.     codecLowQuality                = $100;
  184.     codecNormalQuality            = $200;
  185.     codecHighQuality            = $300;
  186.  
  187.     codecCompletionSource        = 0+(1 * (2**(0)));                { asynchronous codec is done with source data }
  188.     codecCompletionDest            = 0+(1 * (2**(1)));                { asynchronous codec is done with destination data }
  189.  
  190.     codecProgressOpen            = 0;
  191.     codecProgressUpdatePercent    = 1;
  192.     codecProgressClose            = 2;
  193.  
  194. TYPE
  195.     ICMDataProcPtr = ProcPtr;  { FUNCTION ICMData(VAR dataP: Ptr; bytesNeeded: LONGINT; refcon: LONGINT): OSErr; }
  196.     ICMFlushProcPtr = ProcPtr;  { FUNCTION ICMFlush(data: Ptr; bytesAdded: LONGINT; refcon: LONGINT): OSErr; }
  197.     ICMCompletionProcPtr = ProcPtr;  { PROCEDURE ICMCompletion(result: OSErr; flags: INTEGER; refcon: LONGINT); }
  198.     ICMProgressProcPtr = ProcPtr;  { FUNCTION ICMProgress(message: INTEGER; completeness: Fixed; refcon: LONGINT): OSErr; }
  199.     StdPixProcPtr = ProcPtr;  { PROCEDURE StdPix(VAR src: PixMap; VAR srcRect: Rect; VAR matrix: MatrixRecord; mode: INTEGER; mask: RgnHandle; VAR matte: PixMap; VAR matteRect: Rect; flags: INTEGER); }
  200.     ICMAlignmentProcPtr = ProcPtr;  { PROCEDURE ICMAlignment(VAR rp: Rect; refcon: LONGINT); }
  201.     ICMDataUPP = UniversalProcPtr;
  202.     ICMFlushUPP = UniversalProcPtr;
  203.     ICMCompletionUPP = UniversalProcPtr;
  204.     ICMProgressUPP = UniversalProcPtr;
  205.     StdPixUPP = UniversalProcPtr;
  206.     ICMAlignmentUPP = UniversalProcPtr;
  207.  
  208.     ImageSequence = LONGINT;
  209.  
  210.     ICMProgressProcRecord = RECORD
  211.         progressProc:            ICMProgressUPP;
  212.         progressRefCon:            LONGINT;
  213.     END;
  214.     ICMProgressProcRecordPtr = ^ICMProgressProcRecord;
  215.  
  216.     ICMCompletionProcRecord = RECORD
  217.         completionProc:            ICMCompletionUPP;
  218.         completionRefCon:        LONGINT;
  219.     END;
  220.     ICMCompletionProcRecordPtr = ^ICMCompletionProcRecord;
  221.  
  222.     ICMDataProcRecord = RECORD
  223.         dataProc:                ICMDataUPP;
  224.         dataRefCon:                LONGINT;
  225.     END;
  226.     ICMDataProcRecordPtr = ^ICMDataProcRecord;
  227.  
  228.     ICMFlushProcRecord = RECORD
  229.         flushProc:                ICMFlushUPP;
  230.         flushRefCon:            LONGINT;
  231.     END;
  232.     ICMFlushProcRecordPtr = ^ICMFlushProcRecord;
  233.  
  234.     ICMAlignmentProcRecord = RECORD
  235.         alignmentProc:            ICMAlignmentUPP;
  236.         alignmentRefCon:        LONGINT;
  237.     END;
  238.     ICMAlignmentProcRecordPtr = ^ICMAlignmentProcRecord;
  239.  
  240.     DataRateParams = RECORD
  241.         dataRate:                LONGINT;
  242.         dataOverrun:            LONGINT;
  243.         frameDuration:            LONGINT;
  244.         keyFrameRate:            LONGINT;
  245.         minSpatialQuality:        CodecQ;
  246.         minTemporalQuality:        CodecQ;
  247.     END;
  248.     DataRateParamsPtr = ^DataRateParams;
  249.  
  250.     ImageDescription = PACKED RECORD
  251.         idSize:                    LONGINT;                                { total size of ImageDescription including extra data ( CLUTs and other per sequence data }
  252.         cType:                    CodecType;                                { what kind of codec compressed this data }
  253.         resvd1:                    LONGINT;                                { reserved for Apple use }
  254.         resvd2:                    INTEGER;                                { reserved for Apple use }
  255.         dataRefIndex:            INTEGER;                                { set to zero  }
  256.         version:                INTEGER;                                { which version is this data }
  257.         revisionLevel:            INTEGER;                                { what version of that codec did this }
  258.         vendor:                    LONGINT;                                { whose  codec compressed this data }
  259.         temporalQuality:        CodecQ;                                    { what was the temporal quality factor  }
  260.         spatialQuality:            CodecQ;                                    { what was the spatial quality factor }
  261.         width:                    INTEGER;                                { how many pixels wide is this data }
  262.         height:                    INTEGER;                                { how many pixels high is this data }
  263.         hRes:                    Fixed;                                    { horizontal resolution }
  264.         vRes:                    Fixed;                                    { vertical resolution }
  265.         dataSize:                LONGINT;                                { if known, the size of data for this image descriptor }
  266.         frameCount:                INTEGER;                                { number of frames this description applies to }
  267.         name:                    Str31;                                    { name of codec ( in case not installed )  }
  268.         depth:                    INTEGER;                                { what depth is this data (1-32) or ( 33-40 grayscale ) }
  269.         clutID:                    INTEGER;                                { clut id or if 0 clut follows  or -1 if no clut }
  270.     END;
  271.     ImageDescriptionPtr = ^ImageDescription;
  272.  
  273.     ImageDescriptionHandle = ^ImageDescriptionPtr;
  274.  
  275.     CodecInfo = PACKED RECORD
  276.         typeName:                Str31;                                    { name of the codec type i.e.: 'Apple Image Compression' }
  277.         version:                INTEGER;                                { version of the codec data that this codec knows about }
  278.         revisionLevel:            INTEGER;                                { revision level of this codec i.e: 0x00010001 (1.0.1) }
  279.         vendor:                    LONGINT;                                { Maker of this codec i.e: 'appl' }
  280.         decompressFlags:        LONGINT;                                { codecInfo flags for decompression capabilities }
  281.         compressFlags:            LONGINT;                                { codecInfo flags for compression capabilities }
  282.         formatFlags:            LONGINT;                                { codecInfo flags for compression format details }
  283.         compressionAccuracy:    UInt8;                                    { measure (1-255) of accuracy of this codec for compress (0 if unknown) }
  284.         decompressionAccuracy:    UInt8;                                    { measure (1-255) of accuracy of this codec for decompress (0 if unknown) }
  285.         compressionSpeed:        INTEGER;                                { ( millisecs for compressing 320x240 on base mac II) (0 if unknown)  }
  286.         decompressionSpeed:        INTEGER;                                { ( millisecs for decompressing 320x240 on mac II)(0 if unknown)  }
  287.         compressionLevel:        UInt8;                                    { measure (1-255) of compression level of this codec (0 if unknown)  }
  288.         resvd:                    UInt8;                                    { pad }
  289.         minimumHeight:            INTEGER;                                { minimum height of image (block size) }
  290.         minimumWidth:            INTEGER;                                { minimum width of image (block size) }
  291.         decompressPipelineLatency: INTEGER;                                { in milliseconds ( for asynchronous codecs ) }
  292.         compressPipelineLatency: INTEGER;                                { in milliseconds ( for asynchronous codecs ) }
  293.         privateData:            LONGINT;
  294.     END;
  295.     CodecNameSpec = RECORD
  296.         codec:                    CodecComponent;
  297.         cType:                    CodecType;
  298.         typeName:                Str31;
  299.         name:                    Handle;
  300.     END;
  301.     CodecNameSpecList = RECORD
  302.         count:                    INTEGER;
  303.         list:                    ARRAY [0..0] OF CodecNameSpec;
  304.     END;
  305.     CodecNameSpecListPtr = ^CodecNameSpecList;
  306.  
  307.  
  308. CONST
  309.     defaultDither                = 0;
  310.     forceDither                    = 1;
  311.     suppressDither                = 2;
  312.     useColorMatching            = 4;
  313.  
  314.  
  315. TYPE
  316.     ICMFrameTimeRecord = RECORD
  317.         value:                    wide;                                    { frame time }
  318.         scale:                    LONGINT;                                { timescale of value/duration fields }
  319.         base:                    Ptr;                                    { timebase }
  320.         duration:                LONGINT;                                { duration frame is to be displayed (0 if unknown) }
  321.         rate:                    Fixed;                                    { rate of timebase relative to wall-time }
  322.     END;
  323.     ICMFrameTimePtr = ^ICMFrameTimeRecord;
  324.  
  325.  
  326. CONST
  327.     uppICMDataProcInfo = $00000FE0; { FUNCTION (4 byte param, 4 byte param, 4 byte param): 2 byte result; }
  328.     uppICMFlushProcInfo = $00000FE0; { FUNCTION (4 byte param, 4 byte param, 4 byte param): 2 byte result; }
  329.     uppICMCompletionProcInfo = $00000E80; { PROCEDURE (2 byte param, 2 byte param, 4 byte param); }
  330.     uppICMProgressProcInfo = $00000FA0; { FUNCTION (2 byte param, 4 byte param, 4 byte param): 2 byte result; }
  331.     uppStdPixProcInfo = $002FEFC0; { PROCEDURE (4 byte param, 4 byte param, 4 byte param, 2 byte param, 4 byte param, 4 byte param, 4 byte param, 2 byte param); }
  332.     uppICMAlignmentProcInfo = $000003C0; { PROCEDURE (4 byte param, 4 byte param); }
  333.  
  334. FUNCTION NewICMDataProc(userRoutine: ICMDataProcPtr): ICMDataUPP;
  335.     {$IFC NOT GENERATINGCFM }
  336.     INLINE $2E9F;
  337.     {$ENDC}
  338.  
  339. FUNCTION NewICMFlushProc(userRoutine: ICMFlushProcPtr): ICMFlushUPP;
  340.     {$IFC NOT GENERATINGCFM }
  341.     INLINE $2E9F;
  342.     {$ENDC}
  343.  
  344. FUNCTION NewICMCompletionProc(userRoutine: ICMCompletionProcPtr): ICMCompletionUPP;
  345.     {$IFC NOT GENERATINGCFM }
  346.     INLINE $2E9F;
  347.     {$ENDC}
  348.  
  349. FUNCTION NewICMProgressProc(userRoutine: ICMProgressProcPtr): ICMProgressUPP;
  350.     {$IFC NOT GENERATINGCFM }
  351.     INLINE $2E9F;
  352.     {$ENDC}
  353.  
  354. FUNCTION NewStdPixProc(userRoutine: StdPixProcPtr): StdPixUPP;
  355.     {$IFC NOT GENERATINGCFM }
  356.     INLINE $2E9F;
  357.     {$ENDC}
  358.  
  359. FUNCTION NewICMAlignmentProc(userRoutine: ICMAlignmentProcPtr): ICMAlignmentUPP;
  360.     {$IFC NOT GENERATINGCFM }
  361.     INLINE $2E9F;
  362.     {$ENDC}
  363.  
  364. FUNCTION CallICMDataProc(VAR dataP: Ptr; bytesNeeded: LONGINT; refcon: LONGINT; userRoutine: ICMDataUPP): OSErr;
  365.     {$IFC NOT GENERATINGCFM}
  366.     INLINE $205F, $4E90;
  367.     {$ENDC}
  368.  
  369. FUNCTION CallICMFlushProc(data: Ptr; bytesAdded: LONGINT; refcon: LONGINT; userRoutine: ICMFlushUPP): OSErr;
  370.     {$IFC NOT GENERATINGCFM}
  371.     INLINE $205F, $4E90;
  372.     {$ENDC}
  373.  
  374. PROCEDURE CallICMCompletionProc(result: OSErr; flags: INTEGER; refcon: LONGINT; userRoutine: ICMCompletionUPP);
  375.     {$IFC NOT GENERATINGCFM}
  376.     INLINE $205F, $4E90;
  377.     {$ENDC}
  378.  
  379. FUNCTION CallICMProgressProc(message: INTEGER; completeness: Fixed; refcon: LONGINT; userRoutine: ICMProgressUPP): OSErr;
  380.     {$IFC NOT GENERATINGCFM}
  381.     INLINE $205F, $4E90;
  382.     {$ENDC}
  383.  
  384. PROCEDURE CallStdPixProc(VAR src: PixMap; VAR srcRect: Rect; VAR matrix: MatrixRecord; mode: INTEGER; mask: RgnHandle; VAR matte: PixMap; VAR matteRect: Rect; flags: INTEGER; userRoutine: StdPixUPP);
  385.     {$IFC NOT GENERATINGCFM}
  386.     INLINE $205F, $4E90;
  387.     {$ENDC}
  388.  
  389. PROCEDURE CallICMAlignmentProc(VAR rp: Rect; refcon: LONGINT; userRoutine: ICMAlignmentUPP);
  390.     {$IFC NOT GENERATINGCFM}
  391.     INLINE $205F, $4E90;
  392.     {$ENDC}
  393.  
  394. FUNCTION CodecManagerVersion(VAR version: LONGINT): OSErr;
  395.     {$IFC NOT GENERATINGCFM}
  396.     INLINE $7000, $AAA3;
  397.     {$ENDC}
  398. FUNCTION GetCodecNameList(VAR list: CodecNameSpecListPtr; showAll: INTEGER): OSErr;
  399.     {$IFC NOT GENERATINGCFM}
  400.     INLINE $7001, $AAA3;
  401.     {$ENDC}
  402. FUNCTION DisposeCodecNameList(list: CodecNameSpecListPtr): OSErr;
  403.     {$IFC NOT GENERATINGCFM}
  404.     INLINE $700F, $AAA3;
  405.     {$ENDC}
  406. FUNCTION GetCodecInfo(VAR info: CodecInfo; cType: CodecType; codec: CodecComponent): OSErr;
  407.     {$IFC NOT GENERATINGCFM}
  408.     INLINE $7003, $AAA3;
  409.     {$ENDC}
  410. FUNCTION GetMaxCompressionSize(src: PixMapHandle; srcRect: Rect; colorDepth: INTEGER; quality: CodecQ; cType: CodecType; codec: CompressorComponent; VAR size: LONGINT): OSErr;
  411.     {$IFC NOT GENERATINGCFM}
  412.     INLINE $7004, $AAA3;
  413.     {$ENDC}
  414. FUNCTION GetCompressionTime(src: PixMapHandle; srcRect: Rect; colorDepth: INTEGER; cType: CodecType; codec: CompressorComponent; VAR spatialQuality: CodecQ; VAR temporalQuality: CodecQ; VAR compressTime: LONGINT): OSErr;
  415.     {$IFC NOT GENERATINGCFM}
  416.     INLINE $7005, $AAA3;
  417.     {$ENDC}
  418. FUNCTION CompressImage(src: PixMapHandle; srcRect: Rect; quality: CodecQ; cType: CodecType; desc: ImageDescriptionHandle; data: Ptr): OSErr;
  419.     {$IFC NOT GENERATINGCFM}
  420.     INLINE $7006, $AAA3;
  421.     {$ENDC}
  422. FUNCTION FCompressImage(src: PixMapHandle; srcRect: Rect; colorDepth: INTEGER; quality: CodecQ; cType: CodecType; codec: CompressorComponent; clut: CTabHandle; flags: CodecFlags; bufferSize: LONGINT; flushProc: ICMFlushProcRecordPtr; progressProc: ICMProgressProcRecordPtr; desc: ImageDescriptionHandle; data: Ptr): OSErr;
  423.     {$IFC NOT GENERATINGCFM}
  424.     INLINE $7007, $AAA3;
  425.     {$ENDC}
  426. FUNCTION DecompressImage(data: Ptr; desc: ImageDescriptionHandle; dst: PixMapHandle; srcRect: Rect; dstRect: Rect; mode: INTEGER; mask: RgnHandle): OSErr;
  427.     {$IFC NOT GENERATINGCFM}
  428.     INLINE $7008, $AAA3;
  429.     {$ENDC}
  430. FUNCTION FDecompressImage(data: Ptr; desc: ImageDescriptionHandle; dst: PixMapHandle; srcRect: Rect; matrix: MatrixRecordPtr; mode: INTEGER; mask: RgnHandle; matte: PixMapHandle; matteRect: Rect; accuracy: CodecQ; codec: DecompressorComponent; bufferSize: LONGINT; dataProc: ICMDataProcRecordPtr; progressProc: ICMProgressProcRecordPtr): OSErr;
  431.     {$IFC NOT GENERATINGCFM}
  432.     INLINE $7009, $AAA3;
  433.     {$ENDC}
  434. FUNCTION CompressSequenceBegin(VAR seqID: ImageSequence; src: PixMapHandle; prev: PixMapHandle; srcRect: Rect; prevRect: Rect; colorDepth: INTEGER; cType: CodecType; codec: CompressorComponent; spatialQuality: CodecQ; temporalQuality: CodecQ; keyFrameRate: LONGINT; clut: CTabHandle; flags: CodecFlags; desc: ImageDescriptionHandle): OSErr;
  435.     {$IFC NOT GENERATINGCFM}
  436.     INLINE $700A, $AAA3;
  437.     {$ENDC}
  438. FUNCTION CompressSequenceFrame(seqID: ImageSequence; src: PixMapHandle; srcRect: Rect; flags: CodecFlags; data: Ptr; VAR dataSize: LONGINT; VAR similarity: UInt8; asyncCompletionProc: ICMCompletionProcRecordPtr): OSErr;
  439.     {$IFC NOT GENERATINGCFM}
  440.     INLINE $700B, $AAA3;
  441.     {$ENDC}
  442. FUNCTION DecompressSequenceBegin(VAR seqID: ImageSequence; desc: ImageDescriptionHandle; port: CGrafPtr; gdh: GDHandle; srcRect: Rect; matrix: MatrixRecordPtr; mode: INTEGER; mask: RgnHandle; flags: CodecFlags; accuracy: CodecQ; codec: DecompressorComponent): OSErr;
  443.     {$IFC NOT GENERATINGCFM}
  444.     INLINE $700D, $AAA3;
  445.     {$ENDC}
  446. FUNCTION DecompressSequenceBeginS(VAR seqID: ImageSequence; desc: ImageDescriptionHandle; data: Ptr; dataSize: LONGINT; port: CGrafPtr; gdh: GDHandle; srcRect: Rect; matrix: MatrixRecordPtr; mode: INTEGER; mask: RgnHandle; flags: CodecFlags; accuracy: CodecQ; codec: DecompressorComponent): OSErr;
  447.     {$IFC NOT GENERATINGCFM}
  448.     INLINE $203C, $30, $5D, $AAA3;
  449.     {$ENDC}
  450. FUNCTION DecompressSequenceFrame(seqID: ImageSequence; data: Ptr; inFlags: CodecFlags; VAR outFlags: CodecFlags; asyncCompletionProc: ICMCompletionProcRecordPtr): OSErr;
  451.     {$IFC NOT GENERATINGCFM}
  452.     INLINE $700E, $AAA3;
  453.     {$ENDC}
  454. FUNCTION DecompressSequenceFrameS(seqID: ImageSequence; data: Ptr; dataSize: LONGINT; inFlags: CodecFlags; VAR outFlags: CodecFlags; asyncCompletionProc: ICMCompletionProcRecordPtr): OSErr;
  455.     {$IFC NOT GENERATINGCFM}
  456.     INLINE $203C, $16, $47, $AAA3;
  457.     {$ENDC}
  458. FUNCTION DecompressSequenceFrameWhen(seqID: ImageSequence; data: Ptr; dataSize: LONGINT; inFlags: CodecFlags; VAR outFlags: CodecFlags; asyncCompletionProc: ICMCompletionProcRecordPtr; frameTime: ICMFrameTimePtr): OSErr;
  459.     {$IFC NOT GENERATINGCFM}
  460.     INLINE $203C, $1A, $5E, $AAA3;
  461.     {$ENDC}
  462. FUNCTION CDSequenceFlush(seqID: ImageSequence): OSErr;
  463.     {$IFC NOT GENERATINGCFM}
  464.     INLINE $203C, $4, $5F, $AAA3;
  465.     {$ENDC}
  466. FUNCTION SetDSequenceMatrix(seqID: ImageSequence; matrix: MatrixRecordPtr): OSErr;
  467.     {$IFC NOT GENERATINGCFM}
  468.     INLINE $7010, $AAA3;
  469.     {$ENDC}
  470. FUNCTION SetDSequenceMatte(seqID: ImageSequence; matte: PixMapHandle; matteRect: Rect): OSErr;
  471.     {$IFC NOT GENERATINGCFM}
  472.     INLINE $7011, $AAA3;
  473.     {$ENDC}
  474. FUNCTION SetDSequenceMask(seqID: ImageSequence; mask: RgnHandle): OSErr;
  475.     {$IFC NOT GENERATINGCFM}
  476.     INLINE $7012, $AAA3;
  477.     {$ENDC}
  478. FUNCTION SetDSequenceTransferMode(seqID: ImageSequence; mode: INTEGER; opColor: RGBColor): OSErr;
  479.     {$IFC NOT GENERATINGCFM}
  480.     INLINE $7013, $AAA3;
  481.     {$ENDC}
  482. FUNCTION SetDSequenceDataProc(seqID: ImageSequence; dataProc: ICMDataProcRecordPtr; bufferSize: LONGINT): OSErr;
  483.     {$IFC NOT GENERATINGCFM}
  484.     INLINE $7014, $AAA3;
  485.     {$ENDC}
  486. FUNCTION SetDSequenceAccuracy(seqID: ImageSequence; accuracy: CodecQ): OSErr;
  487.     {$IFC NOT GENERATINGCFM}
  488.     INLINE $7034, $AAA3;
  489.     {$ENDC}
  490. FUNCTION SetDSequenceSrcRect(seqID: ImageSequence; srcRect: Rect): OSErr;
  491.     {$IFC NOT GENERATINGCFM}
  492.     INLINE $7035, $AAA3;
  493.     {$ENDC}
  494. FUNCTION GetDSequenceImageBuffer(seqID: ImageSequence; VAR gworld: GWorldPtr): OSErr;
  495.     {$IFC NOT GENERATINGCFM}
  496.     INLINE $7015, $AAA3;
  497.     {$ENDC}
  498. FUNCTION GetDSequenceScreenBuffer(seqID: ImageSequence; VAR gworld: GWorldPtr): OSErr;
  499.     {$IFC NOT GENERATINGCFM}
  500.     INLINE $7016, $AAA3;
  501.     {$ENDC}
  502. FUNCTION SetCSequenceQuality(seqID: ImageSequence; spatialQuality: CodecQ; temporalQuality: CodecQ): OSErr;
  503.     {$IFC NOT GENERATINGCFM}
  504.     INLINE $7017, $AAA3;
  505.     {$ENDC}
  506. FUNCTION SetCSequencePrev(seqID: ImageSequence; prev: PixMapHandle; prevRect: Rect): OSErr;
  507.     {$IFC NOT GENERATINGCFM}
  508.     INLINE $7018, $AAA3;
  509.     {$ENDC}
  510. FUNCTION SetCSequenceFlushProc(seqID: ImageSequence; flushProc: ICMFlushProcRecordPtr; bufferSize: LONGINT): OSErr;
  511.     {$IFC NOT GENERATINGCFM}
  512.     INLINE $7033, $AAA3;
  513.     {$ENDC}
  514. FUNCTION SetCSequenceKeyFrameRate(seqID: ImageSequence; keyframerate: LONGINT): OSErr;
  515.     {$IFC NOT GENERATINGCFM}
  516.     INLINE $7036, $AAA3;
  517.     {$ENDC}
  518. FUNCTION GetCSequenceKeyFrameRate(seqID: ImageSequence; VAR keyframerate: LONGINT): OSErr;
  519.     {$IFC NOT GENERATINGCFM}
  520.     INLINE $203C, $8, $4B, $AAA3;
  521.     {$ENDC}
  522. FUNCTION GetCSequencePrevBuffer(seqID: ImageSequence; VAR gworld: GWorldPtr): OSErr;
  523.     {$IFC NOT GENERATINGCFM}
  524.     INLINE $7019, $AAA3;
  525.     {$ENDC}
  526. FUNCTION CDSequenceBusy(seqID: ImageSequence): OSErr;
  527.     {$IFC NOT GENERATINGCFM}
  528.     INLINE $701A, $AAA3;
  529.     {$ENDC}
  530. FUNCTION CDSequenceEnd(seqID: ImageSequence): OSErr;
  531.     {$IFC NOT GENERATINGCFM}
  532.     INLINE $701B, $AAA3;
  533.     {$ENDC}
  534. FUNCTION GetCompressedImageSize(desc: ImageDescriptionHandle; data: Ptr; bufferSize: LONGINT; dataProc: ICMDataProcRecordPtr; VAR dataSize: LONGINT): OSErr;
  535.     {$IFC NOT GENERATINGCFM}
  536.     INLINE $701C, $AAA3;
  537.     {$ENDC}
  538. FUNCTION GetSimilarity(src: PixMapHandle; srcRect: Rect; desc: ImageDescriptionHandle; data: Ptr; VAR similarity: Fixed): OSErr;
  539.     {$IFC NOT GENERATINGCFM}
  540.     INLINE $701D, $AAA3;
  541.     {$ENDC}
  542. FUNCTION GetImageDescriptionCTable(desc: ImageDescriptionHandle; VAR ctable: CTabHandle): OSErr;
  543.     {$IFC NOT GENERATINGCFM}
  544.     INLINE $701E, $AAA3;
  545.     {$ENDC}
  546. FUNCTION SetImageDescriptionCTable(desc: ImageDescriptionHandle; ctable: CTabHandle): OSErr;
  547.     {$IFC NOT GENERATINGCFM}
  548.     INLINE $701F, $AAA3;
  549.     {$ENDC}
  550. FUNCTION GetImageDescriptionExtension(desc: ImageDescriptionHandle; VAR extension: Handle; idType: LONGINT; index: LONGINT): OSErr;
  551.     {$IFC NOT GENERATINGCFM}
  552.     INLINE $7020, $AAA3;
  553.     {$ENDC}
  554. FUNCTION SetImageDescriptionExtension(desc: ImageDescriptionHandle; extension: Handle; idType: LONGINT): OSErr;
  555.     {$IFC NOT GENERATINGCFM}
  556.     INLINE $7021, $AAA3;
  557.     {$ENDC}
  558. FUNCTION RemoveImageDescriptionExtension(VAR desc: ImageDescription; idType: LONGINT; index: LONGINT): OSErr;
  559.     {$IFC NOT GENERATINGCFM}
  560.     INLINE $203C, $C, $3A, $AAA3;
  561.     {$ENDC}
  562. FUNCTION CountImageDescriptionExtensionType(VAR desc: ImageDescription; idType: LONGINT; VAR count: LONGINT): OSErr;
  563.     {$IFC NOT GENERATINGCFM}
  564.     INLINE $203C, $C, $3B, $AAA3;
  565.     {$ENDC}
  566. FUNCTION GetNextImageDescriptionExtensionType(VAR desc: ImageDescription; VAR idType: LONGINT): OSErr;
  567.     {$IFC NOT GENERATINGCFM}
  568.     INLINE $203C, $8, $3C, $AAA3;
  569.     {$ENDC}
  570. FUNCTION FindCodec(cType: CodecType; specCodec: CodecComponent; VAR compressor: CompressorComponent; VAR decompressor: DecompressorComponent): OSErr;
  571.     {$IFC NOT GENERATINGCFM}
  572.     INLINE $7023, $AAA3;
  573.     {$ENDC}
  574. FUNCTION CompressPicture(srcPicture: PicHandle; dstPicture: PicHandle; quality: CodecQ; cType: CodecType): OSErr;
  575.     {$IFC NOT GENERATINGCFM}
  576.     INLINE $7024, $AAA3;
  577.     {$ENDC}
  578. FUNCTION FCompressPicture(srcPicture: PicHandle; dstPicture: PicHandle; colorDepth: INTEGER; clut: CTabHandle; quality: CodecQ; doDither: INTEGER; compressAgain: INTEGER; progressProc: ICMProgressProcRecordPtr; cType: CodecType; codec: CompressorComponent): OSErr;
  579.     {$IFC NOT GENERATINGCFM}
  580.     INLINE $7025, $AAA3;
  581.     {$ENDC}
  582. FUNCTION CompressPictureFile(srcRefNum: INTEGER; dstRefNum: INTEGER; quality: CodecQ; cType: CodecType): OSErr;
  583.     {$IFC NOT GENERATINGCFM}
  584.     INLINE $7026, $AAA3;
  585.     {$ENDC}
  586. FUNCTION FCompressPictureFile(srcRefNum: INTEGER; dstRefNum: INTEGER; colorDepth: INTEGER; clut: CTabHandle; quality: CodecQ; doDither: INTEGER; compressAgain: INTEGER; progressProc: ICMProgressProcRecordPtr; cType: CodecType; codec: CompressorComponent): OSErr;
  587.     {$IFC NOT GENERATINGCFM}
  588.     INLINE $7027, $AAA3;
  589.     {$ENDC}
  590. FUNCTION GetPictureFileHeader(refNum: INTEGER; VAR frame: Rect; VAR header: OpenCPicParams): OSErr;
  591.     {$IFC NOT GENERATINGCFM}
  592.     INLINE $7028, $AAA3;
  593.     {$ENDC}
  594. FUNCTION DrawPictureFile(refNum: INTEGER; frame: Rect; progressProc: ICMProgressProcRecordPtr): OSErr;
  595.     {$IFC NOT GENERATINGCFM}
  596.     INLINE $7029, $AAA3;
  597.     {$ENDC}
  598. FUNCTION DrawTrimmedPicture(srcPicture: PicHandle; frame: Rect; trimMask: RgnHandle; doDither: INTEGER; progressProc: ICMProgressProcRecordPtr): OSErr;
  599.     {$IFC NOT GENERATINGCFM}
  600.     INLINE $702E, $AAA3;
  601.     {$ENDC}
  602. FUNCTION DrawTrimmedPictureFile(srcRefnum: INTEGER; frame: Rect; trimMask: RgnHandle; doDither: INTEGER; progressProc: ICMProgressProcRecordPtr): OSErr;
  603.     {$IFC NOT GENERATINGCFM}
  604.     INLINE $702F, $AAA3;
  605.     {$ENDC}
  606. FUNCTION MakeThumbnailFromPicture(picture: PicHandle; colorDepth: INTEGER; thumbnail: PicHandle; progressProc: ICMProgressProcRecordPtr): OSErr;
  607.     {$IFC NOT GENERATINGCFM}
  608.     INLINE $702A, $AAA3;
  609.     {$ENDC}
  610. FUNCTION MakeThumbnailFromPictureFile(refNum: INTEGER; colorDepth: INTEGER; thumbnail: PicHandle; progressProc: ICMProgressProcRecordPtr): OSErr;
  611.     {$IFC NOT GENERATINGCFM}
  612.     INLINE $702B, $AAA3;
  613.     {$ENDC}
  614. FUNCTION MakeThumbnailFromPixMap(src: PixMapHandle; srcRect: Rect; colorDepth: INTEGER; thumbnail: PicHandle; progressProc: ICMProgressProcRecordPtr): OSErr;
  615.     {$IFC NOT GENERATINGCFM}
  616.     INLINE $702C, $AAA3;
  617.     {$ENDC}
  618. FUNCTION TrimImage(desc: ImageDescriptionHandle; inData: Ptr; inBufferSize: LONGINT; dataProc: ICMDataProcRecordPtr; outData: Ptr; outBufferSize: LONGINT; flushProc: ICMFlushProcRecordPtr; VAR trimRect: Rect; progressProc: ICMProgressProcRecordPtr): OSErr;
  619.     {$IFC NOT GENERATINGCFM}
  620.     INLINE $702D, $AAA3;
  621.     {$ENDC}
  622. FUNCTION ConvertImage(srcDD: ImageDescriptionHandle; srcData: Ptr; colorDepth: INTEGER; clut: CTabHandle; accuracy: CodecQ; quality: CodecQ; cType: CodecType; codec: CodecComponent; dstDD: ImageDescriptionHandle; dstData: Ptr): OSErr;
  623.     {$IFC NOT GENERATINGCFM}
  624.     INLINE $7030, $AAA3;
  625.     {$ENDC}
  626. FUNCTION GetCompressedPixMapInfo(pix: PixMapPtr; VAR desc: ImageDescriptionHandle; VAR data: Ptr; VAR bufferSize: LONGINT; VAR dataProc: ICMDataProcRecord; VAR progressProc: ICMProgressProcRecord): OSErr;
  627.     {$IFC NOT GENERATINGCFM}
  628.     INLINE $7037, $AAA3;
  629.     {$ENDC}
  630. FUNCTION SetCompressedPixMapInfo(pix: PixMapPtr; desc: ImageDescriptionHandle; data: Ptr; bufferSize: LONGINT; dataProc: ICMDataProcRecordPtr; progressProc: ICMProgressProcRecordPtr): OSErr;
  631.     {$IFC NOT GENERATINGCFM}
  632.     INLINE $7038, $AAA3;
  633.     {$ENDC}
  634. PROCEDURE StdPix(src: PixMapPtr; srcRect: Rect; matrix: MatrixRecordPtr; mode: INTEGER; mask: RgnHandle; matte: PixMapPtr; matteRect: Rect; flags: INTEGER);
  635.     {$IFC NOT GENERATINGCFM}
  636.     INLINE $700C, $AAA3;
  637.     {$ENDC}
  638. FUNCTION TransformRgn(matrix: MatrixRecordPtr; rgn: RgnHandle): OSErr;
  639.     {$IFC NOT GENERATINGCFM}
  640.     INLINE $7039, $AAA3;
  641.     {$ENDC}
  642. {**********
  643.     preview stuff
  644. **********}
  645. PROCEDURE SFGetFilePreview(where: Point; prompt: ConstStr255Param; fileFilter: FileFilterUPP; numTypes: INTEGER; VAR typeList: SFTypeList; dlgHook: DlgHookUPP; VAR reply: SFReply);
  646.     {$IFC NOT GENERATINGCFM}
  647.     INLINE $7041, $AAA3;
  648.     {$ENDC}
  649. PROCEDURE SFPGetFilePreview(where: Point; prompt: ConstStr255Param; fileFilter: FileFilterUPP; numTypes: INTEGER; VAR typeList: SFTypeList; dlgHook: DlgHookUPP; VAR reply: SFReply; dlgID: INTEGER; filterProc: ModalFilterUPP);
  650.     {$IFC NOT GENERATINGCFM}
  651.     INLINE $7042, $AAA3;
  652.     {$ENDC}
  653. PROCEDURE StandardGetFilePreview(fileFilter: FileFilterUPP; numTypes: INTEGER; VAR typeList: SFTypeList; VAR reply: StandardFileReply);
  654.     {$IFC NOT GENERATINGCFM}
  655.     INLINE $7043, $AAA3;
  656.     {$ENDC}
  657. PROCEDURE CustomGetFilePreview(fileFilter: FileFilterYDUPP; numTypes: INTEGER; VAR typeList: SFTypeList; VAR reply: StandardFileReply; dlgID: INTEGER; where: Point; dlgHook: DlgHookYDUPP; filterProc: ModalFilterYDUPP; activeList: INTEGER; activateProc: ActivateYDUPP; yourDataPtr: UNIV Ptr);
  658.     {$IFC NOT GENERATINGCFM}
  659.     INLINE $7044, $AAA3;
  660.     {$ENDC}
  661. FUNCTION MakeFilePreview(resRefNum: INTEGER; progress: ICMProgressProcRecordPtr): OSErr;
  662.     {$IFC NOT GENERATINGCFM}
  663.     INLINE $7045, $AAA3;
  664.     {$ENDC}
  665. FUNCTION AddFilePreview(resRefNum: INTEGER; previewType: OSType; previewData: Handle): OSErr;
  666.     {$IFC NOT GENERATINGCFM}
  667.     INLINE $7046, $AAA3;
  668.     {$ENDC}
  669.  
  670. CONST
  671.     sfpItemPreviewAreaUser        = 11;
  672.     sfpItemPreviewStaticText    = 12;
  673.     sfpItemPreviewDividerUser    = 13;
  674.     sfpItemCreatePreviewButton    = 14;
  675.     sfpItemShowPreviewButton    = 15;
  676.  
  677.  
  678. TYPE
  679.     PreviewResourceRecord = RECORD
  680.         modDate:                LONGINT;
  681.         version:                INTEGER;
  682.         resType:                OSType;
  683.         resID:                    INTEGER;
  684.     END;
  685.     PreviewResourcePtr = ^PreviewResourceRecord;
  686.     PreviewResource = ^PreviewResourcePtr;
  687.  
  688.  
  689. PROCEDURE AlignScreenRect(VAR rp: Rect; alignmentProc: ICMAlignmentProcRecordPtr);
  690.     {$IFC NOT GENERATINGCFM}
  691.     INLINE $203C, $8, $4C, $AAA3;
  692.     {$ENDC}
  693. PROCEDURE AlignWindow(wp: WindowPtr; front: BOOLEAN; alignmentRect: Rect; alignmentProc: ICMAlignmentProcRecordPtr);
  694.     {$IFC NOT GENERATINGCFM}
  695.     INLINE $203C, $E, $4D, $AAA3;
  696.     {$ENDC}
  697. PROCEDURE DragAlignedWindow(wp: WindowPtr; startPt: Point; VAR boundsRect: Rect; VAR alignmentRect: Rect; alignmentProc: ICMAlignmentProcRecordPtr);
  698.     {$IFC NOT GENERATINGCFM}
  699.     INLINE $203C, $14, $4E, $AAA3;
  700.     {$ENDC}
  701. FUNCTION DragAlignedGrayRgn(theRgn: RgnHandle; startPt: Point; VAR boundsRect: Rect; VAR slopRect: Rect; axis: INTEGER; actionProc: UniversalProcPtr; VAR alignmentRect: Rect; alignmentProc: ICMAlignmentProcRecordPtr): LONGINT;
  702.     {$IFC NOT GENERATINGCFM}
  703.     INLINE $203C, $1E, $4F, $AAA3;
  704.     {$ENDC}
  705. FUNCTION SetCSequenceDataRateParams(seqID: ImageSequence; params: DataRateParamsPtr): OSErr;
  706.     {$IFC NOT GENERATINGCFM}
  707.     INLINE $203C, $8, $50, $AAA3;
  708.     {$ENDC}
  709. FUNCTION SetCSequenceFrameNumber(seqID: ImageSequence; frameNumber: LONGINT): OSErr;
  710.     {$IFC NOT GENERATINGCFM}
  711.     INLINE $203C, $8, $51, $AAA3;
  712.     {$ENDC}
  713. FUNCTION NewImageGWorld(VAR gworld: GWorldPtr; idh: ImageDescriptionHandle; flags: GWorldFlags): QDErr;
  714.     {$IFC NOT GENERATINGCFM}
  715.     INLINE $203C, $C, $52, $AAA3;
  716.     {$ENDC}
  717. FUNCTION GetCSequenceDataRateParams(seqID: ImageSequence; params: DataRateParamsPtr): OSErr;
  718.     {$IFC NOT GENERATINGCFM}
  719.     INLINE $203C, $8, $53, $AAA3;
  720.     {$ENDC}
  721. FUNCTION GetCSequenceFrameNumber(seqID: ImageSequence; VAR frameNumber: LONGINT): OSErr;
  722.     {$IFC NOT GENERATINGCFM}
  723.     INLINE $203C, $8, $54, $AAA3;
  724.     {$ENDC}
  725. FUNCTION GetBestDeviceRect(VAR gdh: GDHandle; VAR rp: Rect): OSErr;
  726.     {$IFC NOT GENERATINGCFM}
  727.     INLINE $203C, $8, $55, $AAA3;
  728.     {$ENDC}
  729. FUNCTION SetSequenceProgressProc(seqID: ImageSequence; VAR progressProc: ICMProgressProcRecord): OSErr;
  730.     {$IFC NOT GENERATINGCFM}
  731.     INLINE $203C, $8, $56, $AAA3;
  732.     {$ENDC}
  733. FUNCTION GDHasScale(gdh: GDHandle; depth: INTEGER; VAR scale: Fixed): OSErr;
  734.     {$IFC NOT GENERATINGCFM}
  735.     INLINE $203C, $A, $5A, $AAA3;
  736.     {$ENDC}
  737. FUNCTION GDGetScale(gdh: GDHandle; VAR scale: Fixed; VAR flags: INTEGER): OSErr;
  738.     {$IFC NOT GENERATINGCFM}
  739.     INLINE $203C, $C, $5B, $AAA3;
  740.     {$ENDC}
  741. FUNCTION GDSetScale(gdh: GDHandle; scale: Fixed; flags: INTEGER): OSErr;
  742.     {$IFC NOT GENERATINGCFM}
  743.     INLINE $203C, $A, $5C, $AAA3;
  744.     {$ENDC}
  745. FUNCTION ICMShieldSequenceCursor(seqID: ImageSequence): OSErr;
  746.     {$IFC NOT GENERATINGCFM}
  747.     INLINE $203C, $4, $62, $AAA3;
  748.     {$ENDC}
  749. PROCEDURE ICMDecompressComplete(seqID: ImageSequence; err: OSErr; flag: INTEGER; completionRtn: ICMCompletionProcRecordPtr);
  750.     {$IFC NOT GENERATINGCFM}
  751.     INLINE $203C, $C, $63, $AAA3;
  752.     {$ENDC}
  753. FUNCTION SetDSequenceTimeCode(seqID: ImageSequence; timeCodeFormat: UNIV Ptr; timeCodeTime: UNIV Ptr): OSErr;
  754.     {$IFC NOT GENERATINGCFM}
  755.     INLINE $203C, $C, $64, $AAA3;
  756.     {$ENDC}
  757.  
  758. CONST
  759.     identityMatrixType            = $00;                            { result if matrix is identity }
  760.     translateMatrixType            = $01;                            { result if matrix translates }
  761.     scaleMatrixType                = $02;                            { result if matrix scales }
  762.     scaleTranslateMatrixType    = $03;                            { result if matrix scales and translates }
  763.     linearMatrixType            = $04;                            { result if matrix is general 2 x 2 }
  764.     linearTranslateMatrixType    = $05;                            { result if matrix is general 2 x 2 and translates }
  765.     perspectiveMatrixType        = $06;                            { result if matrix is general 3 x 3 }
  766.  
  767.     
  768. TYPE
  769. MatrixFlags = INTEGER;
  770.  
  771.  
  772. FUNCTION GetMatrixType(m: MatrixRecord): INTEGER;
  773.     {$IFC NOT GENERATINGCFM}
  774.     INLINE $7014, $ABC2;
  775.     {$ENDC}
  776. PROCEDURE CopyMatrix(m1: MatrixRecord; VAR m2: MatrixRecord);
  777.     {$IFC NOT GENERATINGCFM}
  778.     INLINE $7020, $ABC2;
  779.     {$ENDC}
  780. FUNCTION EqualMatrix(m1: MatrixRecord; m2: MatrixRecord): BOOLEAN;
  781.     {$IFC NOT GENERATINGCFM}
  782.     INLINE $7021, $ABC2;
  783.     {$ENDC}
  784. PROCEDURE SetIdentityMatrix(VAR matrix: MatrixRecord);
  785.     {$IFC NOT GENERATINGCFM}
  786.     INLINE $7015, $ABC2;
  787.     {$ENDC}
  788. PROCEDURE TranslateMatrix(VAR m: MatrixRecord; deltaH: Fixed; deltaV: Fixed);
  789.     {$IFC NOT GENERATINGCFM}
  790.     INLINE $7019, $ABC2;
  791.     {$ENDC}
  792. PROCEDURE RotateMatrix(VAR m: MatrixRecord; degrees: Fixed; aboutX: Fixed; aboutY: Fixed);
  793.     {$IFC NOT GENERATINGCFM}
  794.     INLINE $7016, $ABC2;
  795.     {$ENDC}
  796. PROCEDURE ScaleMatrix(VAR m: MatrixRecord; scaleX: Fixed; scaleY: Fixed; aboutX: Fixed; aboutY: Fixed);
  797.     {$IFC NOT GENERATINGCFM}
  798.     INLINE $7017, $ABC2;
  799.     {$ENDC}
  800. PROCEDURE SkewMatrix(VAR m: MatrixRecord; skewX: Fixed; skewY: Fixed; aboutX: Fixed; aboutY: Fixed);
  801.     {$IFC NOT GENERATINGCFM}
  802.     INLINE $7018, $ABC2;
  803.     {$ENDC}
  804. FUNCTION TransformFixedPoints(m: MatrixRecord; VAR fpt: FixedPoint; count: LONGINT): OSErr;
  805.     {$IFC NOT GENERATINGCFM}
  806.     INLINE $7022, $ABC2;
  807.     {$ENDC}
  808. FUNCTION TransformPoints(mp: MatrixRecord; VAR pt1: Point; count: LONGINT): OSErr;
  809.     {$IFC NOT GENERATINGCFM}
  810.     INLINE $7023, $ABC2;
  811.     {$ENDC}
  812. FUNCTION TransformFixedRect(m: MatrixRecord; VAR fr: FixedRect; VAR fpp: FixedPoint): BOOLEAN;
  813.     {$IFC NOT GENERATINGCFM}
  814.     INLINE $7024, $ABC2;
  815.     {$ENDC}
  816. FUNCTION TransformRect(m: MatrixRecord; VAR r: Rect; VAR fpp: FixedPoint): BOOLEAN;
  817.     {$IFC NOT GENERATINGCFM}
  818.     INLINE $7025, $ABC2;
  819.     {$ENDC}
  820. FUNCTION InverseMatrix(m: MatrixRecord; VAR im: MatrixRecord): BOOLEAN;
  821.     {$IFC NOT GENERATINGCFM}
  822.     INLINE $701C, $ABC2;
  823.     {$ENDC}
  824. PROCEDURE ConcatMatrix(a: MatrixRecord; VAR b: MatrixRecord);
  825.     {$IFC NOT GENERATINGCFM}
  826.     INLINE $701B, $ABC2;
  827.     {$ENDC}
  828. PROCEDURE RectMatrix(VAR matrix: MatrixRecord; srcRect: Rect; dstRect: Rect);
  829.     {$IFC NOT GENERATINGCFM}
  830.     INLINE $701E, $ABC2;
  831.     {$ENDC}
  832. PROCEDURE MapMatrix(VAR matrix: MatrixRecord; fromRect: Rect; toRect: Rect);
  833.     {$IFC NOT GENERATINGCFM}
  834.     INLINE $701D, $ABC2;
  835.     {$ENDC}
  836.  
  837. {$ALIGN RESET}
  838. {$POP}
  839.  
  840. {$SETC UsingIncludes := ImageCompressionIncludes}
  841.  
  842. {$ENDC} {__IMAGECOMPRESSION__}
  843.  
  844. {$IFC NOT UsingIncludes}
  845.  END.
  846. {$ENDC}
  847.